From d474f5082435ca614b04c02dce15a1c88be09afc Mon Sep 17 00:00:00 2001 From: "J.D. Smith" Date: Tue, 5 Dec 2006 23:28:01 +0000 Subject: [PATCH] (idlwave-xml-create-class-method-lists): Trim out spurious class inheritance "None" entries. --- lisp/progmodes/idlwave.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 6fa03c27ba1..f33ae35ed30 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -4651,7 +4651,11 @@ Gets set in cached XML rinfo, or `idlw-rinfo.el'.") props (car (cdr pelem))) (cond ((eq ptype 'SUPERCLASS) - (push (cdr (assq 'name props)) inherits)) + (let ((pname (cdr (assq 'name props))) + (plink (cdr (assq 'link props)))) + (unless (and (string= pname "None") + (string= plink "None")) + (push pname inherits)))) ((eq ptype 'PROPERTY) (let ((pname (cdr (assq 'name props))) -- 2.30.2